﻿Public Class DocumentoAlmacen

    Dim _CIA, _SUC, _TIPODOC, _DCACOD, _ESTCOD As String

    Sub New()

    End Sub

    Sub New(cia As String, suc As String, tipodoc As String, dcacod As String, estcod As String)
        Me._CIA = cia
        Me._SUC = suc
        Me._TIPODOC = tipodoc
        Me._DCACOD = dcacod
        Me._ESTCOD = estcod
    End Sub

    Public Property CIA() As String
        Get
            Return _CIA
        End Get
        Set(value As String)
            _CIA = value
        End Set
    End Property

    Public Property SUC_Codigo() As String
        Get
            Return _SUC
        End Get
        Set(value As String)
            _SUC = value
        End Set
    End Property

    Public Property TDOC_Codigo() As String
        Get
            Return _TIPODOC
        End Get
        Set(value As String)
            _TIPODOC = value
        End Set
    End Property

    Public Property DCA_Codigo() As String
        Get
            Return _DCACOD
        End Get
        Set(value As String)
            _DCACOD = value
        End Set
    End Property

    Public Property EST_Codigo() As String
        Get
            Return _ESTCOD
        End Get
        Set(value As String)
            _ESTCOD = value
        End Set
    End Property

End Class
